home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / mactosh / hc / referenc.sit / Key Words / background_2661.txt < prev    next >
Encoding:
Text File  |  1989-07-09  |  4.0 KB  |  196 lines
  1. -- background: 2661 from stack: in
  2. -- bmap block id: 4915
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: Key Words
  6. ----- HyperTalk script -----
  7. on openCard
  8.   if field "ID" is empty then
  9.     get location of field "ID"
  10.     click at it
  11.   end if
  12. end openCard
  13.  
  14.  
  15. -- part 7 (field)
  16. -- low flags: 00
  17. -- high flags: 4000
  18. -- rect: left=38 top=63 right=81 bottom=161
  19. -- title width / last selected line: 0
  20. -- icon id / first selected line: 0 / 0
  21. -- text alignment: 0
  22. -- font id: 3
  23. -- text size: 12
  24. -- style flags: 0
  25. -- line height: 16
  26. -- part name: ID
  27.  
  28.  
  29. -- part 10 (field)
  30. -- low flags: 00
  31. -- high flags: 4000
  32. -- rect: left=44 top=97 right=325 bottom=465
  33. -- title width / last selected line: 0
  34. -- icon id / first selected line: 0 / 0
  35. -- text alignment: 0
  36. -- font id: 3
  37. -- text size: 12
  38. -- style flags: 0
  39. -- line height: 16
  40. -- part name: Key
  41.  
  42.  
  43. -- part 12 (button)
  44. -- low flags: 00
  45. -- high flags: 2000
  46. -- rect: left=478 top=10 right=63 bottom=512
  47. -- title width / last selected line: 0
  48. -- icon id / first selected line: 1013 / 1013
  49. -- text alignment: 1
  50. -- font id: 0
  51. -- text size: 12
  52. -- style flags: 0
  53. -- line height: 16
  54. -- part name: Next
  55. ----- HyperTalk script -----
  56. on mouseUp
  57.   go next card of this background
  58. end mouseUp
  59.  
  60.  
  61.  
  62. -- part 13 (button)
  63. -- low flags: 00
  64. -- high flags: 2000
  65. -- rect: left=456 top=10 right=63 bottom=490
  66. -- title width / last selected line: 0
  67. -- icon id / first selected line: 1014 / 1014
  68. -- text alignment: 1
  69. -- font id: 0
  70. -- text size: 12
  71. -- style flags: 0
  72. -- line height: 16
  73. -- part name: Prev
  74. ----- HyperTalk script -----
  75. on mouseUp
  76.   go prev card of this background
  77. end mouseUp
  78.  
  79.  
  80.  
  81. -- part 14 (button)
  82. -- low flags: 00
  83. -- high flags: 2000
  84. -- rect: left=425 top=19 right=55 bottom=464
  85. -- title width / last selected line: 0
  86. -- icon id / first selected line: 21060 / 21060
  87. -- text alignment: 1
  88. -- font id: 0
  89. -- text size: 12
  90. -- style flags: 0
  91. -- line height: 16
  92. -- part name: Help
  93. ----- HyperTalk script -----
  94. on mouseUp
  95.   global expert
  96.   set the lockScreen to true
  97.   push card
  98.   go to card "Key Words-Help" of "Reference Frame"
  99.   if expert is not true then show card field "Key Words Help"
  100. end mouseUp
  101.  
  102.  
  103.  
  104. -- part 15 (button)
  105. -- low flags: 00
  106. -- high flags: A002
  107. -- rect: left=360 top=26 right=47 bottom=421
  108. -- title width / last selected line: 0
  109. -- icon id / first selected line: 0 / 0
  110. -- text alignment: 1
  111. -- font id: 0
  112. -- text size: 12
  113. -- style flags: 0
  114. -- line height: 16
  115. -- part name: Options
  116. ----- HyperTalk script -----
  117. on mouseUp
  118.   go to card "Options" of "Reference Frame"
  119. end mouseUp
  120.  
  121.  
  122.  
  123. -- part 16 (button)
  124. -- low flags: 00
  125. -- high flags: A002
  126. -- rect: left=319 top=26 right=47 bottom=357
  127. -- title width / last selected line: 0
  128. -- icon id / first selected line: 0 / 0
  129. -- text alignment: 1
  130. -- font id: 0
  131. -- text size: 12
  132. -- style flags: 0
  133. -- line height: 16
  134. -- part name: Sort
  135. ----- HyperTalk script -----
  136. on mouseUp
  137.   sort by field "ID"
  138. end mouseUp
  139.  
  140.  
  141.  
  142. -- part 17 (button)
  143. -- low flags: 00
  144. -- high flags: A002
  145. -- rect: left=240 top=26 right=47 bottom=316
  146. -- title width / last selected line: 0
  147. -- icon id / first selected line: 0 / 0
  148. -- text alignment: 1
  149. -- font id: 0
  150. -- text size: 12
  151. -- style flags: 0
  152. -- line height: 16
  153. -- part name: Abstracts
  154. ----- HyperTalk script -----
  155. on mouseUp
  156.   set the lockScreen to true
  157.   put field "ID" into temp
  158.   go to first card of "Abstracts"
  159.   if temp is empty then exit mouseUp
  160.   find temp in field "ID"
  161.   if the result is empty then
  162.     exit mouseUp
  163.   end if
  164.   go to last card of "Abstracts"
  165.   doMenu "New Card"
  166.   put temp into field "ID"
  167. end mouseUp
  168.  
  169.  
  170. -- part 18 (button)
  171. -- low flags: 00
  172. -- high flags: A002
  173. -- rect: left=181 top=26 right=47 bottom=237
  174. -- title width / last selected line: 0
  175. -- icon id / first selected line: 0 / 0
  176. -- text alignment: 1
  177. -- font id: 0
  178. -- text size: 12
  179. -- style flags: 0
  180. -- line height: 16
  181. -- part name: Papers
  182. ----- HyperTalk script -----
  183. on mouseUp
  184.   set the lockScreen to true
  185.   put field "ID" into temp
  186.   go to first card of "Papers"
  187.   if temp is empty then exit mouseUp
  188.   find temp in field "ID"
  189.   if the result is empty then
  190.     exit mouseUp
  191.   end if
  192.   go to last card of "Papers"
  193.   doMenu "New Card"
  194.   put temp into field "ID"
  195. end mouseUp
  196.